﻿<Serializable()> _
Public Class EconceptoAdicional

#Region "           Atributos                       "
    Private _idConceptoAdicional As Int32
    Private _descConceptoAdicional As String
    Private _estado As String
    Private _desEstado As String
    Private _idUsuario As Int32
#End Region

#Region "           Propiedades                     "
    Public Property idConceptoAdicional() As Integer
        Get
            Return _idConceptoAdicional
        End Get
        Set(ByVal value As Integer)
            _idConceptoAdicional = value
        End Set
    End Property
    Public Property descConceptoAdicional() As String
        Get
            Return _descConceptoAdicional
        End Get
        Set(ByVal value As String)
            _descConceptoAdicional = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property desEstado() As String
        Get
            Return _desEstado
        End Get
        Set(ByVal value As String)
            _desEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "

#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idConceptoAdicional As Int32, ByVal descConceptoAdicional As String)
        Me.idConceptoAdicional = idConceptoAdicional
        Me.descConceptoAdicional = descConceptoAdicional
    End Sub
    Public Sub New(ByVal idConceptoAdicional As Int32, ByVal descConceptoAdicional As String, _
                   ByVal estado As String, ByVal idUsuario As Integer)
        Me.idConceptoAdicional = idConceptoAdicional
        Me.descConceptoAdicional = descConceptoAdicional
        Me.estado = estado
        Me.desEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
        Me.idUsuario = idUsuario
    End Sub
#End Region

End Class
